/ Chip 2000 January / Chip_2000-01_cd.bin / zkuste / MacOS / STUFF / LINESH.SIT / LineShareDemo / LineShare Scripts / Standard ARA_Data

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 12 53 74 61 6e 64 61 | 72 64 20 20 41 52 41 5f |..Standa|rd  ARA_|
|00000010| 44 61 74 61 00 00 00 00 | 00 00 00 00 00 00 00 00 |Data....|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 73 4c 69 | 4e 01 00 00 00 00 00 00 |.TEXTsLi|N.......|
|00000050| 00 00 00 00 00 19 cf 00 | 00 01 c4 b2 a5 f4 22 b2 |........|......".|
|00000060| a5 f4 22 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..".....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 99 50 00 00 |........|.....P..|
|00000080| 21 20 56 65 72 73 69 6f | 6e 20 33 2e 34 2e 32 0d |! Versio|n 3.4.2.|
|00000090| 21 0d 21 24 20 55 73 65 | 20 74 68 69 73 20 73 63 |!.!$ Use| this sc|
|000000a0| 72 69 70 74 20 77 69 74 | 68 20 41 52 41 20 31 2e |ript wit|h ARA 1.|
|000000b0| 30 20 6f 72 20 32 2e 30 | 20 6f 72 20 33 2e 78 2c |0 or 2.0| or 3.x,|
|000000c0| 0d 21 24 20 61 6e 64 20 | 61 20 42 42 53 2c 20 45 |.!$ and |a BBS, E|
|000000d0| 2d 6d 61 69 6c 20 6f 72 | 20 6f 74 68 65 72 20 63 |-mail or| other c|
|000000e0| 6f 6d 6d 75 6e 69 63 61 | 74 69 6f 6e 20 73 65 72 |ommunica|tion ser|
|000000f0| 76 65 72 20 73 6f 66 74 | 77 61 72 65 0d 21 0d 21 |ver soft|ware.!.!|
|00000100| 24 20 41 20 63 61 62 6c | 65 20 66 6f 72 20 68 61 |$ A cabl|e for ha|
|00000110| 72 64 77 61 72 65 20 68 | 61 6e 64 73 68 61 6b 69 |rdware h|andshaki|
|00000120| 6e 67 20 69 73 20 72 65 | 71 75 69 72 65 64 0d 21 |ng is re|quired.!|
|00000130| 0d 5e 23 20 4d 6f 64 65 | 6d 3a 0d 5e 33 20 45 72 |.^# Mode|m:.^3 Er|
|00000140| 72 6f 72 20 43 6f 72 72 | 65 63 74 69 6f 6e 3a 20 |ror Corr|ection: |
|00000150| 3d 20 42 6f 6f 6c 28 22 | 45 6e 61 62 6c 65 64 22 |= Bool("|Enabled"|
|00000160| 3d 22 41 55 54 4f 22 2c | 22 44 69 73 61 62 6c 65 |="AUTO",|"Disable|
|00000170| 64 22 3d 22 4e 4f 52 4d | 22 29 20 22 4e 4f 52 4d |d"="NORM|") "NORM|
|00000180| 22 0d 5e 34 20 48 61 6e | 64 73 68 61 6b 65 20 77 |".^4 Han|dshake w|
|00000190| 69 72 65 73 3a 20 3d 20 | 42 6f 6f 6c 28 22 43 54 |ires: = |Bool("CT|
|000001a0| 53 2b 44 54 52 22 3d 22 | 26 44 30 22 2c 22 43 54 |S+DTR"="|&D0","CT|
|000001b0| 53 20 6f 6e 6c 79 22 3d | 22 26 44 32 22 29 20 22 |S only"=|"&D2") "|
|000001c0| 26 44 32 22 0d 5e 35 20 | 41 6e 73 77 65 72 20 4f |&D2".^5 |Answer O|
|000001d0| 6e 3a 20 3d 20 45 6e 75 | 6d 28 22 4e 65 76 65 72 |n: = Enu|m("Never|
|000001e0| 22 3d 22 30 22 2c 22 31 | 20 52 69 6e 67 22 3d 22 |"="0","1| Ring"="|
|000001f0| 31 22 2c 22 32 20 52 69 | 6e 67 73 22 3d 22 32 22 |1","2 Ri|ngs"="2"|
|00000200| 2c 22 33 20 52 69 6e 67 | 73 22 3d 22 33 22 2c 22 |,"3 Ring|s"="3","|
|00000210| 35 20 52 69 6e 67 73 22 | 3d 22 35 22 2c 22 37 20 |5 Rings"|="5","7 |
|00000220| 52 69 6e 67 73 22 3d 22 | 37 22 29 20 22 32 22 0d |Rings"="|7") "2".|
|00000230| 5e 36 20 44 61 74 61 20 | 50 6f 72 74 20 53 70 65 |^6 Data |Port Spe|
|00000240| 65 64 3a 20 3d 20 45 6e | 75 6d 28 22 39 36 30 30 |ed: = En|um("9600|
|00000250| 22 2c 22 31 39 32 30 30 | 22 2c 22 33 38 34 30 30 |","19200|","38400|
|00000260| 22 2c 22 35 37 36 30 30 | 22 2c 22 31 31 35 32 30 |","57600|","11520|
|00000270| 30 22 29 20 22 33 38 34 | 30 30 22 0d 21 20 2d 2d |0") "384|00".! --|
|00000280| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000290| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000002a0| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 21 20 52 65 73 65 74 |--------|.! Reset|
|000002b0| 74 69 6e 67 20 74 68 65 | 20 6d 6f 64 65 6d 3a 0d |ting the| modem:.|
|000002c0| 21 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |! ------|--------|
|000002d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000002e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 40 48 61 |--------|----.@Ha|
|000002f0| 6e 67 75 70 0d 20 20 53 | 65 74 54 72 69 65 73 20 |ngup.  S|etTries |
|00000300| 32 0d 20 20 46 6c 75 73 | 68 0d 20 20 48 73 52 65 |2.  Flus|h.  HsRe|
|00000310| 73 65 74 20 30 2c 30 2c | 30 2c 30 2c 30 2c 30 0d |set 0,0,|0,0,0,0.|
|00000320| 21 0d 21 20 54 72 79 20 | 74 6f 20 63 61 74 63 68 |!.! Try |to catch|
|00000330| 20 74 68 65 20 22 4f 4b | 22 20 61 6e 73 77 65 72 | the "OK|" answer|
|00000340| 2c 20 75 73 65 20 74 68 | 65 20 45 73 63 61 70 65 |, use th|e Escape|
|00000350| 20 73 65 71 20 61 6e 64 | 20 44 54 52 20 74 72 61 | seq and| DTR tra|
|00000360| 6e 73 69 74 69 6f 6e 73 | 0d 21 20 74 6f 20 65 6e |nsitions|.! to en|
|00000370| 74 65 72 20 74 68 65 20 | 63 6f 6d 6d 61 6e 64 20 |ter the |command |
|00000380| 6d 6f 64 65 0d 21 0d 40 | 4c 61 62 65 6c 20 31 0d |mode.!.@|Label 1.|
|00000390| 20 20 6d 61 74 63 68 63 | 6c 72 0d 20 20 6d 61 74 |  matchc|lr.  mat|
|000003a0| 63 68 73 74 72 20 31 20 | 32 20 22 4f 4b 5c 72 5c |chstr 1 |2 "OK\r\|
|000003b0| 6e 22 0d 20 20 77 72 69 | 74 65 20 22 41 54 48 30 |n".  wri|te "ATH0|
|000003c0| 56 31 51 30 5c 72 22 0d | 20 20 6d 61 74 63 68 72 |V1Q0\r".|  matchr|
|000003d0| 65 61 64 20 32 30 0d 20 | 20 43 68 72 44 65 6c 61 |ead 20. | ChrDela|
|000003e0| 79 20 31 0d 20 20 57 72 | 69 74 65 20 22 2b 2b 2b |y 1.  Wr|ite "+++|
|000003f0| 22 0d 20 20 43 68 72 44 | 65 6c 61 79 20 30 0d 20 |".  ChrD|elay 0. |
|00000400| 20 53 42 72 65 61 6b 0d | 20 20 44 74 72 43 6c 65 | SBreak.|  DtrCle|
|00000410| 61 72 0d 20 20 50 61 75 | 73 65 20 35 0d 20 20 44 |ar.  Pau|se 5.  D|
|00000420| 74 72 53 65 74 0d 20 20 | 50 61 75 73 65 20 35 0d |trSet.  |Pause 5.|
|00000430| 21 0d 20 20 44 65 63 54 | 72 69 65 73 0d 20 20 49 |!.  DecT|ries.  I|
|00000440| 66 54 72 69 65 73 20 30 | 20 31 0d 21 0d 21 20 4f |fTries 0| 1.!.! O|
|00000450| 53 45 72 72 20 2d 36 30 | 31 39 20 22 4d 6f 64 65 |SErr -60|19 "Mode|
|00000460| 6d 20 65 72 72 6f 72 20 | 2d 20 74 68 65 20 6d 6f |m error |- the mo|
|00000470| 64 65 6d 20 69 73 20 6e | 6f 74 20 72 65 73 70 6f |dem is n|ot respo|
|00000480| 6e 64 69 6e 67 22 0d 21 | 0d 20 20 65 78 69 74 20 |nding".!|.  exit |
|00000490| 2d 36 30 31 39 0d 40 4c | 61 62 65 6c 20 32 0d 20 |-6019.@L|abel 2. |
|000004a0| 20 53 65 74 56 61 72 20 | 41 20 22 26 46 22 0d 20 | SetVar |A "&F". |
|000004b0| 20 47 65 74 4f 70 74 69 | 6f 6e 20 41 20 22 44 46 | GetOpti|on A "DF|
|000004c0| 4c 54 22 20 33 0d 40 4c | 61 62 65 6c 20 33 0d 20 |LT" 3.@L|abel 3. |
|000004d0| 20 57 72 69 74 65 20 22 | 41 54 5e 41 5c 72 22 0d | Write "|AT^A\r".|
|000004e0| 20 20 4a 73 72 20 31 30 | 30 0d 20 20 65 78 69 74 |  Jsr 10|0.  exit|
|000004f0| 20 30 0d 0d 40 4c 61 62 | 65 6c 20 36 0d 20 20 53 | 0..@Lab|el 6.  S|
|00000500| 61 79 20 22 54 68 69 73 | 20 73 63 72 69 70 74 20 |ay "This| script |
|00000510| 63 61 6e 6e 6f 74 20 62 | 65 20 75 73 65 64 20 77 |cannot b|e used w|
|00000520| 69 74 68 20 74 68 69 73 | 20 6d 6f 64 65 6d 22 0d |ith this| modem".|
|00000530| 20 20 69 66 4f 72 69 67 | 69 6e 61 74 65 20 37 0d |  ifOrig|inate 7.|
|00000540| 20 20 70 61 75 73 65 20 | 31 38 30 30 0d 40 4c 61 |  pause |1800.@La|
|00000550| 62 65 6c 20 37 0d 20 20 | 65 78 69 74 20 2d 36 30 |bel 7.  |exit -60|
|00000560| 31 39 0d 21 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |19.! ---|--------|
|00000570| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000580| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00000590| 21 20 20 20 20 52 65 63 | 65 69 76 69 6e 67 20 69 |!    Rec|eiving i|
|000005a0| 6e 63 6f 6d 69 6e 67 20 | 63 61 6c 6c 73 0d 21 20 |ncoming |calls.! |
|000005b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000005c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000005d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 40 41 4e 53 57 |--------|--.@ANSW|
|000005e0| 45 52 0d 40 4c 61 62 65 | 6c 20 31 30 0d 21 0d 21 |ER.@Labe|l 10.!.!|
|000005f0| 20 53 65 74 20 74 68 65 | 20 6d 6f 64 65 6d 20 70 | Set the| modem p|
|00000600| 72 65 66 65 72 72 65 64 | 20 73 70 65 65 64 20 66 |referred| speed f|
|00000610| 69 72 73 74 0d 20 20 53 | 65 72 52 65 73 65 74 20 |irst.  S|erReset |
|00000620| 56 61 6c 28 22 5e 36 22 | 29 2c 30 2c 38 2c 31 0d |Val("^6"|),0,8,1.|
|00000630| 20 20 4a 73 72 20 38 30 | 0d 21 0d 21 20 53 65 74 |  Jsr 80|.!.! Set|
|00000640| 20 74 68 65 20 63 6f 6d | 6d 6f 6e 20 6f 70 74 69 | the com|mon opti|
|00000650| 6f 6e 73 0d 20 20 4a 73 | 72 20 37 30 0d 21 0d 21 |ons.  Js|r 70.!.!|
|00000660| 20 53 65 74 20 74 68 65 | 20 63 6f 6d 6d 75 6e 69 | Set the| communi|
|00000670| 63 61 74 69 6f 6e 20 6f | 70 74 69 6f 6e 73 3a 0d |cation o|ptions:.|
|00000680| 21 20 a5 20 4e 6f 72 6d | 61 6c 2f 41 55 54 4f 20 |! . Norm|al/AUTO |
|00000690| 43 6f 6e 6e 65 63 74 69 | 6f 6e 0d 21 20 a5 20 48 |Connecti|on.! . H|
|000006a0| 57 20 66 6c 6f 77 20 63 | 6f 6e 74 72 6f 6c 0d 21 |W flow c|ontrol.!|
|000006b0| 20 a5 20 43 4f 4e 4e 45 | 43 54 20 3c 44 43 45 20 | . CONNE|CT <DCE |
|000006c0| 73 70 65 65 64 3e 20 6f | 72 20 43 41 52 52 49 45 |speed> o|r CARRIE|
|000006d0| 52 2f 43 4f 4e 4e 45 43 | 54 0d 21 0d 20 20 47 65 |R/CONNEC|T.!.  Ge|
|000006e0| 74 4f 70 74 69 6f 6e 20 | 41 20 22 48 57 48 53 22 |tOption |A "HWHS"|
|000006f0| 20 36 0d 20 20 47 65 74 | 4f 70 74 69 6f 6e 20 42 | 6.  Get|Option B|
|00000700| 20 22 5e 33 22 20 36 0d | 20 20 47 65 74 4f 70 74 | "^3" 6.|  GetOpt|
|00000710| 69 6f 6e 20 43 20 22 4c | 4e 52 53 22 20 36 0d 20 |ion C "L|NRS" 6. |
|00000720| 20 57 72 69 74 65 20 22 | 41 54 5e 41 5e 42 5e 43 | Write "|AT^A^B^C|
|00000730| 5c 72 22 0d 20 20 4a 73 | 72 20 31 30 30 0d 21 0d |\r".  Js|r 100.!.|
|00000740| 21 20 47 65 74 20 74 68 | 65 20 53 70 65 61 6b 65 |! Get th|e Speake|
|00000750| 72 20 61 6e 64 20 74 68 | 65 20 52 69 6e 67 20 4e |r and th|e Ring N|
|00000760| 75 6d 20 6f 70 74 69 6f | 6e 73 0d 20 20 47 65 74 |um optio|ns.  Get|
|00000770| 43 6f 6d 6d 61 6e 64 20 | 42 20 22 44 61 74 61 22 |Command |B "Data"|
|00000780| 20 22 4d 22 0d 20 20 47 | 65 74 43 6f 6d 6d 61 6e | "M".  G|etComman|
|00000790| 64 20 43 20 22 44 61 74 | 61 22 20 22 4c 22 0d 20 |d C "Dat|a" "L". |
|000007a0| 20 53 65 74 56 61 72 20 | 41 20 22 53 30 3d 5e 35 | SetVar |A "S0=^5|
|000007b0| 22 0d 21 0d 21 20 46 65 | 74 63 68 20 74 68 65 20 |".!.! Fe|tch the |
|000007c0| 74 75 62 65 20 61 66 74 | 65 72 20 3c 41 3e 20 72 |tube aft|er <A> r|
|000007d0| 69 6e 67 73 2c 20 3c 42 | 3e 3c 43 3e 20 2d 20 73 |ings, <B|><C> - s|
|000007e0| 70 65 61 6b 65 72 20 6f | 70 74 69 6f 6e 73 0d 20 |peaker o|ptions. |
|000007f0| 20 57 72 69 74 65 20 22 | 41 54 5e 41 5e 42 5e 43 | Write "|AT^A^B^C|
|00000800| 5c 72 22 0d 20 20 4a 73 | 72 20 31 30 30 0d 21 0d |\r".  Js|r 100.!.|
|00000810| 21 20 45 76 65 72 79 74 | 68 69 6e 67 20 69 73 20 |! Everyt|hing is |
|00000820| 72 65 61 64 79 20 2d 20 | 6c 65 74 27 73 20 73 69 |ready - |let's si|
|00000830| 74 20 61 6e 64 20 77 61 | 69 74 20 66 6f 72 20 61 |t and wa|it for a|
|00000840| 20 63 61 6c 6c 0d 21 20 | 57 65 27 6c 6c 20 77 61 | call.! |We'll wa|
|00000850| 69 74 20 66 6f 72 20 32 | 20 6d 69 6e 75 74 65 73 |it for 2| minutes|
|00000860| 2c 20 74 68 65 6e 20 72 | 65 69 6e 69 74 69 61 74 |, then r|einitiat|
|00000870| 65 20 74 68 65 20 6d 6f | 64 65 6d 0d 20 20 4e 6f |e the mo|dem.  No|
|00000880| 74 65 20 22 57 61 69 74 | 69 6e 67 20 66 6f 72 20 |te "Wait|ing for |
|00000890| 61 20 41 52 41 20 6f 72 | 20 44 61 74 61 20 63 61 |a ARA or| Data ca|
|000008a0| 6c 6c c9 22 0d 20 20 4a | 73 72 20 39 30 0d 20 20 |ll.".  J|sr 90.  |
|000008b0| 49 66 53 74 72 20 44 20 | 32 30 20 22 44 41 54 41 |IfStr D |20 "DATA|
|000008c0| 22 0d 20 20 4a 75 6d 70 | 20 31 30 0d 21 0d 21 0d |".  Jump| 10.!.!.|
|000008d0| 21 20 44 61 74 61 20 63 | 6f 6e 6e 65 63 74 69 6f |! Data c|onnectio|
|000008e0| 6e 20 68 61 73 20 62 65 | 65 6e 20 65 73 74 61 62 |n has be|en estab|
|000008f0| 6c 69 73 68 65 64 20 28 | 77 65 20 72 65 61 64 20 |lished (|we read |
|00000900| 22 43 4f 4e 4e 45 43 54 | 22 29 0d 21 20 50 75 74 |"CONNECT|").! Put|
|00000910| 20 74 68 65 20 22 43 4f | 4e 4e 45 43 54 22 20 62 | the "CO|NNECT" b|
|00000920| 61 63 6b 20 74 6f 20 74 | 68 65 20 62 75 66 66 65 |ack to t|he buffe|
|00000930| 72 20 61 6e 64 20 61 74 | 74 61 63 68 20 74 68 65 |r and at|tach the|
|00000940| 20 22 44 61 74 61 22 20 | 73 75 62 50 6f 72 74 0d | "Data" |subPort.|
|00000950| 21 20 69 66 20 69 74 20 | 77 61 73 20 61 6e 20 69 |! if it |was an i|
|00000960| 6e 63 6f 6d 69 6e 67 20 | 63 61 6c 6c 2c 20 70 75 |ncoming |call, pu|
|00000970| 74 20 74 68 65 20 22 52 | 49 4e 47 22 20 62 65 66 |t the "R|ING" bef|
|00000980| 6f 72 65 20 74 68 65 20 | 22 43 4f 4e 4e 45 43 54 |ore the |"CONNECT|
|00000990| 22 0d 21 0d 40 4c 61 62 | 65 6c 20 32 30 0d 20 20 |".!.@Lab|el 20.  |
|000009a0| 49 66 4f 70 65 6e 20 22 | 44 61 74 61 22 20 32 31 |IfOpen "|Data" 21|
|000009b0| 0d 20 20 4a 75 6d 70 20 | 33 30 0d 40 4c 61 62 65 |.  Jump |30.@Labe|
|000009c0| 6c 20 32 31 0d 20 20 49 | 66 4f 70 65 6e 20 22 41 |l 21.  I|fOpen "A|
|000009d0| 52 41 22 20 32 32 0d 20 | 20 4a 75 6d 70 20 33 35 |RA" 22. | Jump 35|
|000009e0| 0d 40 4c 61 62 65 6c 20 | 32 32 0d 20 20 4e 6f 74 |.@Label |22.  Not|
|000009f0| 65 20 22 57 61 69 74 69 | 6e 67 20 66 6f 72 20 61 |e "Waiti|ng for a|
|00000a00| 6e 20 41 52 41 20 66 72 | 61 6d 65 22 0d 20 20 4d |n ARA fr|ame".  M|
|00000a10| 61 74 63 68 43 6c 72 0d | 20 20 4d 61 74 63 68 53 |atchClr.|  MatchS|
|00000a20| 74 72 20 31 20 32 33 20 | 22 5e 24 5c 72 22 0d 20 |tr 1 23 |"^$\r". |
|00000a30| 20 4d 61 74 63 68 53 74 | 72 20 32 20 32 36 20 22 | MatchSt|r 2 26 "|
|00000a40| 5c 30 38 5c 30 31 5c 30 | 33 5c 31 34 5c 30 34 5c |\08\01\0|3\14\04\|
|00000a50| 30 33 5c 30 30 5c 30 38 | 22 0d 20 20 4d 61 74 63 |03\00\08|".  Matc|
|00000a60| 68 53 74 72 20 33 20 32 | 37 20 22 5c 30 31 5c 32 |hStr 3 2|7 "\01\2|
|00000a70| 37 5c 30 32 5c 32 39 5c | 30 31 5c 30 32 5c 30 31 |7\02\29\|01\02\01|
|00000a80| 5c 30 36 22 0d 20 20 4d | 61 74 63 68 53 74 72 20 |\06".  M|atchStr |
|00000a90| 34 20 32 38 20 22 5c 31 | 32 36 5c 32 35 35 5c 31 |4 28 "\1|26\255\1|
|00000aa0| 32 35 5c 33 35 5c 31 39 | 32 5c 33 33 5c 31 32 35 |25\35\19|2\33\125|
|00000ab0| 5c 33 33 22 0d 20 20 4d | 61 74 63 68 52 65 61 64 |\33".  M|atchRead|
|00000ac0| 20 34 30 0d 20 20 4a 75 | 6d 70 20 32 34 0d 40 4c | 40.  Ju|mp 24.@L|
|00000ad0| 61 62 65 6c 20 32 33 0d | 20 20 51 75 65 75 65 49 |abel 23.|  QueueI|
|00000ae0| 6e 70 75 74 20 22 5e 24 | 5c 72 22 0d 40 4c 61 62 |nput "^$|\r".@Lab|
|00000af0| 65 6c 20 32 34 0d 20 20 | 4e 6f 74 65 20 22 4e 6f |el 24.  |Note "No|
|00000b00| 6e 2d 41 52 41 20 63 61 | 6c 6c 22 0d 20 20 4a 75 |n-ARA ca|ll".  Ju|
|00000b10| 6d 70 20 33 35 0d 21 0d | 40 4c 61 62 65 6c 20 32 |mp 35.!.|@Label 2|
|00000b20| 36 0d 20 20 4e 6f 74 65 | 20 22 41 52 41 20 31 2e |6.  Note| "ARA 1.|
|00000b30| 30 20 63 61 6c 6c 22 0d | 20 20 51 75 65 75 65 49 |0 call".|  QueueI|
|00000b40| 6e 70 75 74 20 22 5c 30 | 38 5c 30 31 5c 30 33 5c |nput "\0|8\01\03\|
|00000b50| 31 34 5c 30 34 5c 30 33 | 5c 30 30 5c 30 38 22 0d |14\04\03|\00\08".|
|00000b60| 20 20 4a 75 6d 70 20 33 | 30 0d 40 4c 61 62 65 6c |  Jump 3|0.@Label|
|00000b70| 20 32 37 0d 20 20 4e 6f | 74 65 20 22 41 52 41 20 | 27.  No|te "ARA |
|00000b80| 32 2e 30 20 63 61 6c 6c | 22 0d 20 20 51 75 65 75 |2.0 call|".  Queu|
|00000b90| 65 49 6e 70 75 74 20 22 | 5c 30 31 5c 32 37 5c 30 |eInput "|\01\27\0|
|00000ba0| 32 5c 32 39 5c 30 31 5c | 30 32 5c 30 31 5c 30 36 |2\29\01\|02\01\06|
|00000bb0| 22 0d 20 20 4a 75 6d 70 | 20 33 30 0d 40 4c 61 62 |".  Jump| 30.@Lab|
|00000bc0| 65 6c 20 32 38 0d 20 20 | 4e 6f 74 65 20 22 41 52 |el 28.  |Note "AR|
|00000bd0| 41 20 33 2e 78 20 28 50 | 50 50 29 20 63 61 6c 6c |A 3.x (P|PP) call|
|00000be0| 22 0d 20 20 51 75 65 75 | 65 49 6e 70 75 74 20 22 |".  Queu|eInput "|
|00000bf0| 5c 31 32 36 5c 32 35 35 | 5c 31 32 35 5c 33 35 5c |\126\255|\125\35\|
|00000c00| 31 39 32 5c 33 33 5c 31 | 32 35 5c 33 33 22 0d 21 |192\33\1|25\33".!|
|00000c10| 20 20 4a 75 6d 70 20 33 | 30 0d 21 0d 40 4c 61 62 |  Jump 3|0.!.@Lab|
|00000c20| 65 6c 20 33 30 0d 20 20 | 51 75 65 75 65 49 6e 70 |el 30.  |QueueInp|
|00000c30| 75 74 20 22 5c 72 5c 6e | 43 41 52 52 49 45 52 20 |ut "\r\n|CARRIER |
|00000c40| 5e 42 5c 72 5c 6e 22 20 | 20 0d 20 20 49 66 53 74 |^B\r\n" | .  IfSt|
|00000c50| 72 20 41 20 33 31 20 22 | 4e 4f 4e 45 22 0d 20 20 |r A 31 "|NONE".  |
|00000c60| 49 66 53 74 72 20 41 20 | 33 31 20 22 4e 6f 6e 65 |IfStr A |31 "None|
|00000c70| 22 0d 20 20 51 75 65 75 | 65 49 6e 70 75 74 20 22 |".  Queu|eInput "|
|00000c80| 5c 72 5c 6e 52 45 4c 5c | 72 5c 6e 22 0d 40 4c 61 |\r\nREL\|r\n".@La|
|00000c90| 62 65 6c 20 33 31 0d 20 | 20 49 66 4f 72 69 67 69 |bel 31. | IfOrigi|
|00000ca0| 6e 61 74 65 20 33 32 0d | 20 20 51 75 65 75 65 49 |nate 32.|  QueueI|
|00000cb0| 6e 70 75 74 20 22 5c 72 | 5c 6e 52 49 4e 47 5c 72 |nput "\r|\nRING\r|
|00000cc0| 5c 6e 22 0d 40 4c 61 62 | 65 6c 20 33 32 0d 20 20 |\n".@Lab|el 32.  |
|00000cd0| 41 74 74 61 63 68 20 22 | 41 52 41 22 20 28 44 54 |Attach "|ARA" (DT|
|00000ce0| 52 29 0d 0d 40 4c 61 62 | 65 6c 20 33 35 0d 20 20 |R)..@Lab|el 35.  |
|00000cf0| 47 65 74 53 52 65 67 20 | 43 20 22 44 41 54 41 22 |GetSReg |C "DATA"|
|00000d00| 20 34 0d 20 20 51 75 65 | 75 65 49 6e 70 75 74 20 | 4.  Que|ueInput |
|00000d10| 22 5c 72 5e 43 43 4f 4e | 4e 45 43 54 20 5e 42 5c |"\r^CCON|NECT ^B\|
|00000d20| 72 5e 43 22 0d 20 20 69 | 66 4f 72 69 67 69 6e 61 |r^C".  i|fOrigina|
|00000d30| 74 65 20 33 36 0d 20 20 | 51 75 65 75 65 49 6e 70 |te 36.  |QueueInp|
|00000d40| 75 74 20 22 5c 72 5e 43 | 52 49 4e 47 5c 72 5e 43 |ut "\r^C|RING\r^C|
|00000d50| 22 0d 40 4c 61 62 65 6c | 20 33 36 0d 20 20 48 73 |".@Label| 36.  Hs|
|00000d60| 52 65 73 65 74 20 30 2c | 31 2c 30 2c 30 2c 30 2c |Reset 0,|1,0,0,0,|
|00000d70| 31 0d 20 20 41 74 74 61 | 63 68 20 22 44 61 74 61 |1.  Atta|ch "Data|
|00000d80| 22 20 28 44 54 52 2c 45 | 73 63 61 70 65 2c 42 72 |" (DTR,E|scape,Br|
|00000d90| 65 61 6b 29 0d 21 0d 21 | 20 2d 2d 2d 2d 2d 2d 2d |eak).!.!| -------|
|00000da0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000db0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000dc0| 2d 2d 2d 0d 21 20 4f 72 | 69 67 69 6e 61 74 69 6e |---.! Or|iginatin|
|00000dd0| 67 20 61 20 63 61 6c 6c | 20 74 68 72 6f 75 67 68 |g a call| through|
|00000de0| 20 74 68 65 20 22 41 52 | 41 22 20 73 75 62 70 6f | the "AR|A" subpo|
|00000df0| 72 74 0d 21 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |rt.! ---|--------|
|00000e00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00000e20| 40 4f 52 49 47 49 4e 41 | 54 45 20 22 41 52 41 22 |@ORIGINA|TE "ARA"|
|00000e30| 20 28 22 5c 72 5c 6e 4c | 69 6e 65 53 68 61 72 65 | ("\r\nL|ineShare|
|00000e40| 20 4c 69 6e 65 20 69 73 | 20 42 75 73 79 5c 72 5c | Line is| Busy\r\|
|00000e50| 6e 42 55 53 59 5c 72 5c | 6e 22 29 0d 20 20 53 65 |nBUSY\r\|n").  Se|
|00000e60| 72 52 65 73 65 74 20 56 | 61 6c 28 22 5e 36 22 29 |rReset V|al("^6")|
|00000e70| 2c 30 2c 38 2c 31 0d 20 | 20 4a 73 72 20 38 30 0d |,0,8,1. | Jsr 80.|
|00000e80| 21 0d 21 20 53 65 74 20 | 74 68 65 20 63 6f 6d 6d |!.! Set |the comm|
|00000e90| 6f 6e 20 6f 70 74 69 6f | 6e 73 0d 20 20 4a 73 72 |on optio|ns.  Jsr|
|00000ea0| 20 37 30 0d 21 0d 21 20 | 53 65 74 20 74 68 65 20 | 70.!.! |Set the |
|00000eb0| 63 6f 6d 6d 75 6e 69 63 | 61 74 69 6f 6e 20 6f 70 |communic|ation op|
|00000ec0| 74 69 6f 6e 73 3a 0d 21 | 20 a5 20 4e 6f 72 6d 61 |tions:.!| . Norma|
|00000ed0| 6c 20 43 6f 6e 6e 65 63 | 74 69 6f 6e 0d 21 20 a5 |l Connec|tion.! .|
|00000ee0| 20 48 57 20 66 6c 6f 77 | 20 63 6f 6e 74 72 6f 6c | HW flow| control|
|00000ef0| 0d 21 20 a5 20 43 4f 4e | 4e 45 43 54 20 3c 44 43 |.! . CON|NECT <DC|
|00000f00| 45 20 73 70 65 65 64 3e | 20 6f 72 20 43 41 52 52 |E speed>| or CARR|
|00000f10| 49 45 52 2f 43 4f 4e 4e | 45 43 54 0d 21 0d 20 20 |IER/CONN|ECT.!.  |
|00000f20| 47 65 74 4f 70 74 69 6f | 6e 20 41 20 22 48 57 48 |GetOptio|n A "HWH|
|00000f30| 53 22 20 36 0d 20 20 47 | 65 74 4f 70 74 69 6f 6e |S" 6.  G|etOption|
|00000f40| 20 42 20 22 5e 33 22 20 | 36 0d 20 20 47 65 74 4f | B "^3" |6.  GetO|
|00000f50| 70 74 69 6f 6e 20 43 20 | 22 4c 4e 52 53 22 20 36 |ption C |"LNRS" 6|
|00000f60| 0d 20 20 57 72 69 74 65 | 20 22 41 54 5e 41 5e 42 |.  Write| "AT^A^B|
|00000f70| 5e 43 5c 72 22 0d 20 20 | 4a 73 72 20 31 30 30 0d |^C\r".  |Jsr 100.|
|00000f80| 21 0d 21 20 64 69 61 6c | 20 74 68 65 20 6e 75 6d |!.! dial| the num|
|00000f90| 62 65 72 0d 20 20 57 72 | 69 74 65 20 22 41 54 44 |ber.  Wr|ite "ATD|
|00000fa0| 5e 31 5c 72 22 0d 21 0d | 21 20 57 61 69 74 20 66 |^1\r".!.|! Wait f|
|00000fb0| 6f 72 20 61 20 6d 6f 64 | 65 6d 20 72 65 73 70 6f |or a mod|em respo|
|00000fc0| 6e 73 65 0d 20 20 4a 73 | 72 20 39 30 0d 20 20 49 |nse.  Js|r 90.  I|
|00000fd0| 66 53 74 72 20 44 20 33 | 30 20 22 44 41 54 41 22 |fStr D 3|0 "DATA"|
|00000fe0| 0d 20 20 57 72 69 74 65 | 20 22 5c 72 22 0d 20 20 |.  Write| "\r".  |
|00000ff0| 45 78 69 74 20 2d 36 30 | 31 39 0d 21 0d 21 20 2d |Exit -60|19.!.! -|
|00001000| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001010| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001020| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 21 20 4f 72 69 67 |--------|-.! Orig|
|00001030| 69 6e 61 74 69 6e 67 20 | 61 20 63 61 6c 6c 20 74 |inating |a call t|
|00001040| 68 72 6f 75 67 68 20 74 | 68 65 20 22 44 41 54 41 |hrough t|he "DATA|
|00001050| 22 20 73 75 62 70 6f 72 | 74 0d 21 20 2d 2d 2d 2d |" subpor|t.! ----|
|00001060| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001070| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001080| 2d 2d 2d 2d 2d 2d 0d 40 | 4f 52 49 47 49 4e 41 54 |------.@|ORIGINAT|
|00001090| 45 20 22 44 61 74 61 22 | 20 28 22 5c 72 5c 6e 4c |E "Data"| ("\r\nL|
|000010a0| 69 6e 65 53 68 61 72 65 | 20 4c 69 6e 65 20 69 73 |ineShare| Line is|
|000010b0| 20 42 75 73 79 5c 72 5c | 6e 42 55 53 59 5c 72 5c | Busy\r\|nBUSY\r\|
|000010c0| 6e 22 29 0d 20 20 53 65 | 72 52 65 73 65 74 20 56 |n").  Se|rReset V|
|000010d0| 61 6c 28 22 5e 36 22 29 | 2c 30 2c 38 2c 31 0d 20 |al("^6")|,0,8,1. |
|000010e0| 20 4a 73 72 20 38 30 0d | 21 0d 21 20 53 65 74 20 | Jsr 80.|!.! Set |
|000010f0| 74 68 65 20 63 6f 6d 6d | 6f 6e 20 6f 70 74 69 6f |the comm|on optio|
|00001100| 6e 73 0d 20 20 4a 73 72 | 20 37 30 0d 21 0d 21 20 |ns.  Jsr| 70.!.! |
|00001110| 53 65 74 20 74 68 65 20 | 63 6f 6d 6d 75 6e 69 63 |Set the |communic|
|00001120| 61 74 69 6f 6e 20 6f 70 | 74 69 6f 6e 73 3a 0d 21 |ation op|tions:.!|
|00001130| 20 a5 20 4e 6f 72 6d 61 | 6c 20 43 6f 6e 6e 65 63 | . Norma|l Connec|
|00001140| 74 69 6f 6e 0d 21 20 a5 | 20 48 57 20 66 6c 6f 77 |tion.! .| HW flow|
|00001150| 20 63 6f 6e 74 72 6f 6c | 0d 21 20 a5 20 43 4f 4e | control|.! . CON|
|00001160| 4e 45 43 54 20 3c 44 43 | 45 20 73 70 65 65 64 3e |NECT <DC|E speed>|
|00001170| 20 6f 72 20 43 41 52 52 | 49 45 52 2f 43 4f 4e 4e | or CARR|IER/CONN|
|00001180| 45 43 54 0d 21 0d 20 20 | 47 65 74 4f 70 74 69 6f |ECT.!.  |GetOptio|
|00001190| 6e 20 41 20 22 48 57 48 | 53 22 20 36 0d 20 20 47 |n A "HWH|S" 6.  G|
|000011a0| 65 74 4f 70 74 69 6f 6e | 20 42 20 22 5e 33 22 20 |etOption| B "^3" |
|000011b0| 36 0d 20 20 47 65 74 4f | 70 74 69 6f 6e 20 43 20 |6.  GetO|ption C |
|000011c0| 22 4c 4e 52 53 22 20 36 | 0d 20 20 57 72 69 74 65 |"LNRS" 6|.  Write|
|000011d0| 20 22 41 54 5e 41 5e 42 | 5e 43 5c 72 22 0d 20 20 | "AT^A^B|^C\r".  |
|000011e0| 4a 73 72 20 31 30 30 0d | 21 0d 21 20 64 69 61 6c |Jsr 100.|!.! dial|
|000011f0| 20 74 68 65 20 6e 75 6d | 62 65 72 0d 20 20 57 72 | the num|ber.  Wr|
|00001200| 69 74 65 20 22 41 54 44 | 5e 31 5c 72 22 0d 20 20 |ite "ATD|^1\r".  |
|00001210| 48 73 52 65 73 65 74 20 | 2a 0d 21 0d 21 20 57 61 |HsReset |*.!.! Wa|
|00001220| 69 74 20 66 6f 72 20 61 | 20 6d 6f 64 65 6d 20 72 |it for a| modem r|
|00001230| 65 73 70 6f 6e 73 65 0d | 20 20 4a 73 72 20 39 30 |esponse.|  Jsr 90|
|00001240| 0d 20 20 49 66 53 74 72 | 20 44 20 33 35 20 22 44 |.  IfStr| D 35 "D|
|00001250| 41 54 41 22 0d 20 20 57 | 72 69 74 65 20 22 5c 72 |ATA".  W|rite "\r|
|00001260| 22 0d 20 20 45 78 69 74 | 20 2d 36 30 31 39 0d 21 |".  Exit| -6019.!|
|00001270| 0d 21 0d 21 20 54 68 69 | 73 20 73 65 63 74 69 6f |.!.! Thi|s sectio|
|00001280| 6e 20 65 6d 69 74 73 20 | 61 6c 6c 20 6d 6f 64 65 |n emits |all mode|
|00001290| 6d 20 63 6f 6d 6d 61 6e | 64 73 20 73 65 6e 74 20 |m comman|ds sent |
|000012a0| 66 72 6f 6d 20 74 68 65 | 20 63 6c 69 65 6e 74 20 |from the| client |
|000012b0| 61 70 70 6c 69 63 61 74 | 69 6f 6e 0d 21 20 46 6f |applicat|ion.! Fo|
|000012c0| 72 20 65 61 63 68 20 73 | 65 74 20 6f 66 20 63 6f |r each s|et of co|
|000012d0| 6d 6d 61 6e 64 73 20 74 | 68 65 20 22 4f 4b 22 20 |mmands t|he "OK" |
|000012e0| 61 6e 73 77 65 72 20 69 | 73 20 61 77 61 69 74 65 |answer i|s awaite|
|000012f0| 64 0d 21 0d 40 4c 61 62 | 65 6c 20 36 30 0d 20 20 |d.!.@Lab|el 60.  |
|00001300| 45 6d 69 74 53 74 61 72 | 74 0d 40 4c 61 62 65 6c |EmitStar|t.@Label|
|00001310| 20 36 31 0d 20 20 45 6d | 69 74 43 6f 6d 6d 61 6e | 61.  Em|itComman|
|00001320| 64 20 36 32 0d 20 20 4a | 73 72 20 31 30 30 0d 20 |d 62.  J|sr 100. |
|00001330| 20 4a 75 6d 70 20 36 31 | 0d 40 4c 61 62 65 6c 20 | Jump 61|.@Label |
|00001340| 36 32 0d 20 20 72 65 74 | 75 72 6e 0d 21 0d 21 20 |62.  ret|urn.!.! |
|00001350| 54 68 69 73 20 73 65 63 | 74 69 6f 6e 20 69 6e 69 |This sec|tion ini|
|00001360| 74 69 61 74 65 73 20 74 | 68 65 20 6d 6f 64 65 6d |tiates t|he modem|
|00001370| 20 62 65 66 6f 72 65 20 | 41 4e 53 57 45 52 20 61 | before |ANSWER a|
|00001380| 6e 64 20 4f 52 49 47 49 | 4e 41 54 45 73 3a 0d 21 |nd ORIGI|NATEs:.!|
|00001390| 20 72 65 73 65 74 20 6f | 6e 20 44 74 72 20 64 72 | reset o|n Dtr dr|
|000013a0| 6f 70 20 2b 20 44 43 44 | 20 76 61 6c 69 64 0d 21 |op + DCD| valid.!|
|000013b0| 20 56 65 72 62 61 6c 20 | 72 65 73 70 6f 6e 73 65 | Verbal |response|
|000013c0| 73 20 6d 6f 64 65 2c 20 | 6e 6f 20 65 63 68 6f 20 |s mode, |no echo |
|000013d0| 0d 21 0d 40 4c 61 62 65 | 6c 20 37 30 0d 20 20 57 |.!.@Labe|l 70.  W|
|000013e0| 72 69 74 65 20 22 41 54 | 5e 34 26 43 31 56 31 45 |rite "AT|^4&C1V1E|
|000013f0| 30 5c 72 22 0d 20 20 4a | 73 72 20 31 30 30 0d 20 |0\r".  J|sr 100. |
|00001400| 20 72 65 74 75 72 6e 20 | 0d 21 0d 21 0d 21 20 54 | return |.!.!.! T|
|00001410| 68 69 73 20 73 65 63 74 | 69 6f 6e 20 73 79 6e 63 |his sect|ion sync|
|00001420| 72 6f 6e 69 7a 65 20 74 | 68 65 20 6d 6f 64 65 6d |ronize t|he modem|
|00001430| 20 61 66 74 65 72 20 74 | 68 65 20 73 65 72 69 61 | after t|he seria|
|00001440| 6c 20 70 6f 72 74 20 73 | 70 65 65 64 20 73 77 69 |l port s|peed swi|
|00001450| 74 63 68 69 6e 67 0d 21 | 0d 40 4c 61 62 65 6c 20 |tching.!|.@Label |
|00001460| 38 30 0d 20 20 43 68 72 | 44 65 6c 61 79 20 31 0d |80.  Chr|Delay 1.|
|00001470| 20 20 57 72 69 74 65 20 | 22 41 54 5c 72 22 0d 20 |  Write |"AT\r". |
|00001480| 20 43 68 72 44 65 6c 61 | 79 20 30 0d 20 20 4a 73 | ChrDela|y 0.  Js|
|00001490| 72 20 31 30 30 0d 20 20 | 72 65 74 75 72 6e 0d 21 |r 100.  |return.!|
|000014a0| 0d 21 20 45 72 72 6f 72 | 20 63 6f 64 65 73 0d 40 |.! Error| codes.@|
|000014b0| 4c 61 62 65 6c 20 38 31 | 0d 20 20 65 78 69 74 20 |Label 81|.  exit |
|000014c0| 2d 36 30 32 30 0d 40 4c | 61 62 65 6c 20 38 32 0d |-6020.@L|abel 82.|
|000014d0| 20 20 65 78 69 74 20 2d | 36 30 32 32 0d 40 4c 61 |  exit -|6022.@La|
|000014e0| 62 65 6c 20 38 33 0d 20 | 20 65 78 69 74 20 2d 36 |bel 83. | exit -6|
|000014f0| 30 32 31 0d 40 4c 61 62 | 65 6c 20 38 34 0d 20 20 |021.@Lab|el 84.  |
|00001500| 65 78 69 74 20 2d 36 30 | 32 33 0d 21 0d 21 0d 21 |exit -60|23.!.!.!|
|00001510| 20 54 68 69 73 20 73 75 | 62 72 6f 75 74 69 6e 65 | This su|broutine|
|00001520| 20 77 61 69 74 73 20 66 | 6f 72 20 74 68 65 20 6d | waits f|or the m|
|00001530| 6f 64 65 6d 20 72 65 73 | 70 6f 6e 73 65 0d 21 20 |odem res|ponse.! |
|00001540| 4f 6e 20 65 78 69 74 2c | 20 5e 44 20 63 6f 6e 74 |On exit,| ^D cont|
|00001550| 61 69 6e 73 20 74 68 65 | 20 72 65 73 75 6c 74 20 |ains the| result |
|00001560| 63 6f 64 65 3a 20 22 44 | 41 54 41 22 20 6f 72 20 |code: "D|ATA" or |
|00001570| 22 4e 4f 4e 45 22 0d 21 | 20 5e 41 20 63 6f 6e 74 |"NONE".!| ^A cont|
|00001580| 61 69 6e 73 20 74 68 65 | 20 70 72 6f 74 6f 63 6f |ains the| protoco|
|00001590| 6c 20 75 73 65 64 0d 21 | 20 5e 42 20 63 6f 6e 74 |l used.!| ^B cont|
|000015a0| 61 69 6e 73 20 74 68 65 | 20 63 61 72 72 69 65 72 |ains the| carrier|
|000015b0| 20 73 70 65 65 64 0d 21 | 20 49 66 20 6d 6f 64 65 | speed.!| If mode|
|000015c0| 6d 20 72 65 70 6f 72 74 | 73 20 61 6e 20 65 72 72 |m report|s an err|
|000015d0| 6f 72 2c 20 74 68 65 20 | 73 63 72 69 70 74 73 20 |or, the |scripts |
|000015e0| 65 78 69 74 73 20 77 69 | 74 68 20 61 6e 20 65 72 |exits wi|th an er|
|000015f0| 72 6f 72 20 63 6f 64 65 | 0d 21 0d 40 4c 61 62 65 |ror code|.!.@Labe|
|00001600| 6c 20 38 39 0d 20 20 4e | 6f 74 65 20 22 52 69 6e |l 89.  N|ote "Rin|
|00001610| 67 c9 22 0d 20 20 4a 75 | 6d 70 20 39 31 0d 21 0d |g.".  Ju|mp 91.!.|
|00001620| 40 4c 61 62 65 6c 20 39 | 30 0d 20 20 53 65 74 56 |@Label 9|0.  SetV|
|00001630| 61 72 20 41 20 22 4e 4f | 4e 45 22 0d 20 20 53 65 |ar A "NO|NE".  Se|
|00001640| 74 56 61 72 20 42 20 22 | 22 0d 20 20 4d 61 74 63 |tVar B "|".  Matc|
|00001650| 68 43 6c 72 0d 20 20 4d | 61 74 63 68 73 74 72 20 |hClr.  M|atchstr |
|00001660| 31 20 39 32 20 22 43 41 | 52 52 49 45 52 20 5e 24 |1 92 "CA|RRIER ^$|
|00001670| 5c 72 5c 6e 22 0d 20 20 | 4d 61 74 63 68 73 74 72 |\r\n".  |Matchstr|
|00001680| 20 32 20 39 33 20 22 50 | 52 4f 54 4f 43 4f 4c 3a | 2 93 "P|ROTOCOL:|
|00001690| 20 5e 24 5c 72 5c 6e 22 | 0d 21 0d 20 20 4d 61 74 | ^$\r\n"|.!.  Mat|
|000016a0| 63 68 73 74 72 20 34 20 | 39 35 20 22 43 4f 4e 4e |chstr 4 |95 "CONN|
|000016b0| 45 43 54 20 5e 24 2f 22 | 0d 20 20 4d 61 74 63 68 |ECT ^$/"|.  Match|
|000016c0| 73 74 72 20 35 20 39 37 | 20 22 43 4f 4e 4e 45 43 |str 5 97| "CONNEC|
|000016d0| 54 20 5e 24 5c 72 5c 6e | 22 0d 20 20 4d 61 74 63 |T ^$\r\n|".  Matc|
|000016e0| 68 73 74 72 20 36 20 38 | 39 20 22 52 49 4e 47 5c |hstr 6 8|9 "RING\|
|000016f0| 72 5c 6e 22 0d 20 20 4d | 61 74 63 68 73 74 72 20 |r\n".  M|atchstr |
|00001700| 31 30 20 38 32 20 22 42 | 55 53 59 5c 72 5c 6e 22 |10 82 "B|USY\r\n"|
|00001710| 0d 20 20 4d 61 74 63 68 | 53 74 72 20 31 31 20 38 |.  Match|Str 11 8|
|00001720| 33 20 22 4e 4f 20 43 41 | 52 52 49 45 52 5c 72 5c |3 "NO CA|RRIER\r\|
|00001730| 6e 22 0d 20 20 4d 61 74 | 63 68 53 74 72 20 31 32 |n".  Mat|chStr 12|
|00001740| 20 38 34 20 22 4e 4f 20 | 41 4e 53 57 45 52 5c 72 | 84 "NO |ANSWER\r|
|00001750| 5c 6e 22 0d 20 20 4d 61 | 74 63 68 53 74 72 20 31 |\n".  Ma|tchStr 1|
|00001760| 33 20 38 31 20 22 4e 4f | 20 44 49 41 4c 54 4f 4e |3 81 "NO| DIALTON|
|00001770| 45 5c 72 5c 6e 22 0d 40 | 4c 61 62 65 6c 20 39 31 |E\r\n".@|Label 91|
|00001780| 0d 20 20 4d 61 74 63 68 | 72 65 61 64 20 31 32 30 |.  Match|read 120|
|00001790| 30 0d 20 20 53 65 74 56 | 61 72 20 44 20 22 4e 4f |0.  SetV|ar D "NO|
|000017a0| 4e 45 22 0d 20 20 72 65 | 74 75 72 6e 0d 21 0d 40 |NE".  re|turn.!.@|
|000017b0| 4c 61 62 65 6c 20 39 32 | 0d 20 20 53 65 74 56 61 |Label 92|.  SetVa|
|000017c0| 72 20 42 20 22 5e 24 22 | 0d 20 20 4a 75 6d 70 20 |r B "^$"|.  Jump |
|000017d0| 39 31 0d 40 4c 61 62 65 | 6c 20 39 33 0d 20 20 53 |91.@Labe|l 93.  S|
|000017e0| 65 74 56 61 72 20 41 20 | 22 5e 24 22 0d 20 20 4a |etVar A |"^$".  J|
|000017f0| 75 6d 70 20 39 31 0d 21 | 0d 21 20 43 4f 4e 4e 45 |ump 91.!|.! CONNE|
|00001800| 43 54 20 78 78 78 78 2f | 58 58 58 58 20 77 61 73 |CT xxxx/|XXXX was|
|00001810| 20 64 65 74 65 63 74 65 | 64 0d 40 4c 61 62 65 6c | detecte|d.@Label|
|00001820| 20 39 35 0d 20 20 4a 73 | 72 20 39 38 0d 20 20 4d | 95.  Js|r 98.  M|
|00001830| 61 74 63 68 43 6c 72 0d | 20 20 4d 61 74 63 68 53 |atchClr.|  MatchS|
|00001840| 74 72 20 31 20 39 36 20 | 22 5e 24 5c 72 5c 6e 22 |tr 1 96 |"^$\r\n"|
|00001850| 0d 20 20 4d 61 74 63 68 | 52 65 61 64 20 31 30 0d |.  Match|Read 10.|
|00001860| 40 4c 61 62 65 6c 20 39 | 36 0d 20 20 53 65 74 56 |@Label 9|6.  SetV|
|00001870| 61 72 20 41 20 22 5e 24 | 22 0d 20 20 53 65 74 56 |ar A "^$|".  SetV|
|00001880| 61 72 20 44 20 22 44 41 | 54 41 22 0d 20 20 72 65 |ar D "DA|TA".  re|
|00001890| 74 75 72 6e 0d 21 0d 21 | 20 43 4f 4e 4e 45 43 54 |turn.!.!| CONNECT|
|000018a0| 20 78 78 78 20 77 61 73 | 20 64 65 74 65 63 74 65 | xxx was| detecte|
|000018b0| 64 0d 40 4c 61 62 65 6c | 20 39 37 0d 20 20 4a 73 |d.@Label| 97.  Js|
|000018c0| 72 20 39 38 0d 20 20 53 | 65 74 56 61 72 20 44 20 |r 98.  S|etVar D |
|000018d0| 22 44 41 54 41 22 0d 20 | 20 72 65 74 75 72 6e 0d |"DATA". | return.|
|000018e0| 21 0d 40 4c 61 62 65 6c | 20 39 38 0d 20 20 69 66 |!.@Label| 98.  if|
|000018f0| 53 74 72 20 42 20 39 39 | 20 22 22 0d 20 20 72 65 |Str B 99| "".  re|
|00001900| 74 75 72 6e 0d 40 4c 61 | 62 65 6c 20 39 39 0d 20 |turn.@La|bel 99. |
|00001910| 20 53 65 74 56 61 72 20 | 42 20 22 5e 24 22 0d 20 | SetVar |B "^$". |
|00001920| 20 72 65 74 75 72 6e 20 | 0d 21 0d 21 20 50 72 6f | return |.!.! Pro|
|00001930| 63 65 73 73 69 6e 67 20 | 74 68 65 20 41 54 20 63 |cessing |the AT c|
|00001940| 6f 6d 6d 61 6e 64 3a 0d | 21 20 4f 4b 20 2d 3e 20 |ommand:.|! OK -> |
|00001950| 70 72 6f 63 65 65 64 0d | 21 20 45 52 52 4f 52 20 |proceed.|! ERROR |
|00001960| 6f 72 20 54 69 6d 65 4f | 75 74 20 2d 3e 65 78 69 |or TimeO|ut ->exi|
|00001970| 74 20 2d 36 30 31 39 0d | 21 20 49 74 20 63 61 6e |t -6019.|! It can|
|00001980| 20 62 65 20 63 61 6c 6c | 65 64 20 41 46 54 45 52 | be call|ed AFTER|
|00001990| 20 74 68 65 20 22 57 72 | 69 74 65 22 20 63 6f 6d | the "Wr|ite" com|
|000019a0| 6d 61 6e 64 2c 20 73 69 | 6e 63 65 20 4c 69 6e 65 |mand, si|nce Line|
|000019b0| 53 68 61 72 65 20 62 75 | 66 66 65 72 73 20 69 6e |Share bu|ffers in|
|000019c0| 70 75 74 0d 21 0d 40 4c | 61 62 65 6c 20 31 30 30 |put.!.@L|abel 100|
|000019d0| 0d 20 20 4d 61 74 63 68 | 43 6c 72 0d 20 20 4d 61 |.  Match|Clr.  Ma|
|000019e0| 74 63 68 53 74 72 20 31 | 20 31 30 32 20 22 4f 4b |tchStr 1| 102 "OK|
|000019f0| 5c 72 5c 6e 22 0d 20 20 | 4d 61 74 63 68 53 74 72 |\r\n".  |MatchStr|
|00001a00| 20 32 20 31 30 31 20 22 | 45 52 52 4f 52 5c 72 5c | 2 101 "|ERROR\r\|
|00001a10| 6e 22 0d 20 20 4d 61 74 | 63 68 52 65 61 64 20 32 |n".  Mat|chRead 2|
|00001a20| 30 0d 40 4c 61 62 65 6c | 20 31 30 31 0d 20 20 45 |0.@Label| 101.  E|
|00001a30| 78 69 74 20 2d 36 30 31 | 39 0d 40 4c 61 62 65 6c |xit -601|9.@Label|
|00001a40| 20 31 30 32 0d 20 20 72 | 65 74 75 72 6e 0d 21 00 | 102.  r|eturn.!.|
|00001a50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a80| 00 00 01 00 00 00 01 72 | 00 00 00 72 00 00 00 52 |.......r|...r...R|
|00001a90| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00001aa0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00001ab0| 10 4e 6f 46 61 78 20 2d | 20 41 52 41 26 44 61 74 |.NoFax -| ARA&Dat|
|00001ac0| 61 41 26 44 61 74 61 44 | 61 74 61 72 65 66 73 e0 |aA&DataD|atarefs.|
|00001ad0| 00 00 54 45 58 54 73 4c | 69 4e 01 00 ff ff ff ff |..TEXTsL|iN......|
|00001ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001af0| 00 00 a9 b8 67 27 00 00 | 18 b3 00 00 01 5c 00 ff |....g'..|.....\..|
|00001b00| ff ff ff f0 00 00 00 ff | ff ff ff f0 00 00 00 ff |........|........|
|00001b10| ff ff ff f0 00 00 00 ff | ff ff ff f0 00 00 00 ff |........|........|
|00001b20| ff ff ff f0 00 00 00 ff | ff ff ff f0 00 00 00 ff |........|........|
|00001b30| ff ff ff f0 00 00 00 ff | ff ff ff f0 00 00 00 ff |........|........|
|00001b40| ff ff ff f0 00 00 00 ff | ff ff ff f0 00 00 00 ff |........|........|
|00001b50| ff ff ff f0 00 00 00 00 | 00 00 00 10 00 00 00 00 |........|........|
|00001b60| 00 00 00 00 00 00 00 00 | 00 00 00 0f ff ff ff 00 |........|........|
|00001b70| 00 00 00 00 00 00 00 00 | 0f ff c0 00 00 00 00 00 |........|........|
|00001b80| 00 00 00 32 03 42 20 00 | 00 00 05 33 2e 34 2e 32 |...2.B .|...3.4.2|
|00001b90| 25 33 2e 34 2e 32 0d a9 | 31 39 39 33 2d 39 38 20 |%3.4.2..|1993-98 |
|00001ba0| 53 74 61 6c 6b 65 72 20 | 53 6f 66 74 77 61 72 65 |Stalker |Software|
|00001bb0| 2c 20 49 6e 63 2e 00 00 | 00 20 03 42 80 00 00 00 |, Inc...|. .B....|
|00001bc0| 05 33 2e 34 2e 32 13 4c | 69 6e 65 53 68 61 72 65 |.3.4.2.L|ineShare|
|00001bd0| aa 20 73 6f 66 74 77 61 | 72 65 00 00 00 14 00 00 |. softwa|re......|
|00001be0| 00 00 00 00 00 00 6d 61 | 63 73 c4 4c 69 4e 00 00 |......ma|cs.LiN..|
|00001bf0| 00 00 00 00 01 00 00 00 | 01 72 00 00 00 72 00 00 |........|.r...r..|
|00001c00| 00 52 01 b0 2d 88 32 ae | 00 00 00 1c 00 52 00 01 |.R..-.2.|.....R..|
|00001c10| 76 65 72 73 00 01 00 12 | 72 6f 75 74 00 00 00 2a |vers....|rout...*|
|00001c20| 00 01 ff ff 00 00 00 00 | 00 00 00 00 00 02 ff ff |........|........|
|00001c30| 00 00 00 36 00 00 00 00 | 00 00 ff ff 00 00 00 5a |...6....|.......Z|
|00001c40| 01 b0 45 d4 00 00 00 00 | 00 00 00 00 00 00 00 00 |..E.....|........|
|00001c50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+